home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
AVOGADRO
/
CHEMISTRY
/
UNITCONV
/
!UnitConv
/
!Run
< prev
next >
Wrap
Text File
|
1996-05-15
|
978b
|
36 lines
| > !UnitConv.!Run
|
| Run File for unit conversion
|
| by Chris Johnson
|
RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
|
| Follow PRM (4:497) advice and prevent multiple running
|
If "<UnitConv$Running>" = "yes" Then Error UnitConv is already running
|
|
| Find path to file
Set UnitConv$Dir <Obey$Dir>
Set UnitConvRM$Path <Obey$Dir>.rm.,system:modules.
|
IconSprites <Obey$Dir>.!Sprites
|
|
|
set temp$flag 1
RMEnsure ABCLibrary 0 set temp$flag 0
RMensure ABCLibrary 4.00 if "<temp$flag>" = "1" Then Error 0 Old ABCLib installed Else RMLoad UnitConvRM:ABCLib
RMensure ABCLibrary 4.00 Error You need the ABClibrary ver 4.00 or later installed
unset temp$flag
|
RMEnsure CJWimpUtil 0.18 RMLoad UnitConvRM:cjwimpUtil
RMEnsure CJwimpUtil 0.18 Error You need the CJWimpUtil module (0.18 or later) installed
|
| Check memory allocation
WimpSlot -min 60K -max 60K
|
| Now start program
Run <UnitConv$Dir>.!RunImage